1 CALL CLEAR::CALL SCREEN(2)::CALL SPRITE(#1,68,16,100,50,#2,69,12,90,40,#3,85,10,80,30,#4,88,7,70,20)
2 CALL JOYST(1,A,B)::CALL MOTION(#1,B*5,A*16,#2,-B*15,-A*16,#3,-B*4,A*5,#4,B*14,-A*6)::GOTO 2